home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Prg / KALENDAR.ZIP / MAIN.FRM < prev    next >
Text File  |  1997-09-14  |  3KB  |  116 lines
  1. VERSION 2.00
  2. Begin Form Form6 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Kalendar Demos"
  5.    ClientHeight    =   4080
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   3015
  9.    Height          =   4485
  10.    Left            =   0
  11.    LinkTopic       =   "Form6"
  12.    ScaleHeight     =   4080
  13.    ScaleWidth      =   3015
  14.    Top             =   0
  15.    Width           =   3135
  16.    Begin ComboBox cmbDemos 
  17.       Height          =   300
  18.       Left            =   90
  19.       Style           =   2  'Dropdown List
  20.       TabIndex        =   2
  21.       Top             =   90
  22.       Width           =   2790
  23.    End
  24.    Begin PictureBox Picture1 
  25.       Align           =   2  'Align Bottom
  26.       BackColor       =   &H00C0C0C0&
  27.       Height          =   3600
  28.       Left            =   0
  29.       ScaleHeight     =   3570
  30.       ScaleWidth      =   2985
  31.       TabIndex        =   0
  32.       Top             =   480
  33.       Width           =   3015
  34.       Begin TextBox txtSampleDescription 
  35.          Height          =   3480
  36.          Left            =   45
  37.          MultiLine       =   -1  'True
  38.          ScrollBars      =   2  'Vertical
  39.          TabIndex        =   1
  40.          Top             =   30
  41.          Width           =   2895
  42.       End
  43.    End
  44. End
  45. Option Explicit
  46.  
  47. Sub cmbDemos_Click ()
  48.  
  49.     UnloadAll
  50.  
  51.     Select Case cmbDemos.ListIndex
  52.         Case 0
  53.             ShowForm Form1
  54.         Case 1
  55.             ShowForm Form2
  56.         Case 2
  57.             ShowForm Form3
  58.         Case 3
  59.             ShowForm Form4
  60.         Case 4
  61.             ShowForm Form5
  62.     End Select
  63.  
  64. End Sub
  65.  
  66. Sub Form_Load ()
  67.     cmbDemos.AddItem "Property Demo"
  68.     cmbDemos.AddItem "Draw Your Own"
  69.     cmbDemos.AddItem "Drag & Drop"
  70.     cmbDemos.AddItem "Moon Kalendar"
  71.     cmbDemos.AddItem "Time Lines"
  72.  
  73.     Me.Move 0, 0
  74.     cmbDemos.ListIndex = 0
  75.  
  76.     CR = Chr(13) + Chr(10)
  77.  
  78.     SetupSomeExampleData
  79. End Sub
  80.  
  81. Sub Form_Unload (Cancel As Integer)
  82.     UnloadAll
  83. End Sub
  84.  
  85. Sub SetupSomeExampleData ()
  86.  
  87.     ' For the drag and drop demo.
  88.     DateInfoAdd Date, "TODAY"
  89.     DateInfoAdd Date + 5, "Dentist Appt."
  90.     DateInfoAdd Date - 7, "Meet Susanne"
  91.     DateInfoAdd #1962-03-18#, "Kevin's Birthday"
  92.     DateInfoAdd Date + 8, "Zach To library" & CR & "Call Mom"
  93.  
  94.     ' For the time line demo.
  95.     DateRangeAdd Date, Date + 1, "Vacation", &HFF8080
  96.     DateRangeAdd Date - 10, Date - 3, "Seminar", RGB(255, 0, 0)
  97.     DateRangeAdd Date + 10, Date + 20, "Finish Project", RGB(0, 255, 0)
  98.  
  99. End Sub
  100.  
  101. Sub ShowForm (F As Form)
  102.     Load F
  103.     F.Move Form6.Left + Form6.Width, 0
  104.     F.Show
  105. End Sub
  106.  
  107. Sub UnloadAll ()
  108.     On Error Resume Next
  109.     Unload Form1
  110.     Unload Form2
  111.     Unload Form3
  112.     Unload Form4
  113.     Unload Form5
  114. End Sub
  115.  
  116.